Chip 1998 September/CHIP Eylül 1998.iso/freeware/mp3/WPlay160/WPlay/WPlay.exe/0/RCDATA/TFORM3/TFORM3.txt

Text File | 1998-07-28 | 8KB | 338 lines

object Form3: TForm3
  Left = 300
  Top = 145
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = 'MP3 Playlist'
  ClientHeight = 335
  ClientWidth = 382
  Color = clNavy
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  PrintScale = poNone
  Scaled = False
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object tmpplselected: TImage
    Left = 256
    Top = 368
    Width = 97
    Height = 33
    Picture.Data = {<image000.bmp>}
  end
  object plselected: TImage
    Left = 56
    Top = 368
    Width = 25
    Height = 17
  end
  object allpic: TImage
    Left = 416
    Top = 184
    Width = 41
    Height = 17
    Picture.Data = {<image001.bmp>}
  end
  object DropPanel1: TDropPanel
    Left = 2
    Top = 2
    Width = 378
    Height = 337
    BevelOuter = bvNone
    Caption = 'DropPanel1'
    Color = clNavy
    TabOrder = 0
    OnFileDrop = DropPanel1FileDrop
    object plmain: TImage
      Left = 0
      Top = 0
      Width = 378
      Height = 90
      AutoSize = True
      PopupMenu = Popup
      Stretch = True
      OnMouseDown = plmainMouseDown
      OnMouseMove = plmainMouseMove
      OnMouseUp = plmainMouseUp
    end
    object Image1: TImage
      Left = 0
      Top = 313
      Width = 378
      Height = 20
      Picture.Data = {<image002.bmp>}
      OnMouseMove = Image1MouseMove
    end
    object saveimg: TImage
      Left = 11
      Top = 54
      Width = 40
      Height = 24
      OnClick = saveimgClick
      OnMouseMove = saveimgMouseMove
    end
    object addimg: TImage
      Left = 61
      Top = 54
      Width = 40
      Height = 24
      OnClick = addimgClick
      OnMouseMove = addimgMouseMove
    end
    object delimg: TImage
      Left = 111
      Top = 54
      Width = 40
      Height = 24
      OnClick = delimgClick
      OnMouseMove = delimgMouseMove
    end
    object playimg: TImage
      Left = 161
      Top = 54
      Width = 40
      Height = 24
      OnClick = playimgClick
      OnMouseMove = playimgMouseMove
    end
    object upimg: TImage
      Left = 211
      Top = 54
      Width = 40
      Height = 24
      OnClick = upimgClick
      OnMouseMove = upimgMouseMove
    end
    object downimg: TImage
      Left = 261
      Top = 54
      Width = 40
      Height = 24
      OnClick = downimgClick
      OnMouseMove = downimgMouseMove
    end
    object ximg: TImage
      Left = 344
      Top = 54
      Width = 22
      Height = 24
      OnClick = ximgClick
      OnMouseMove = ximgMouseMove
    end
    object playlisttext: TLabel
      Left = 196
      Top = 315
      Width = 177
      Height = 15
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'No Songs'
      Color = clMaroon
      Font.Color = 16761024
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object editpic: TImage
      Left = 4
      Top = 316
      Width = 25
      Height = 14
      OnClick = editpicClick
      OnMouseMove = editpicMouseMove
    end
    object effectpic: TImage
      Left = 32
      Top = 316
      Width = 41
      Height = 14
      OnClick = effectpicClick
      OnMouseMove = effectpicMouseMove
    end
    object trackpic: TImage
      Left = 84
      Top = 316
      Width = 47
      Height = 14
      Hint = 'Rename a CD-Track'
      ParentShowHint = False
      ShowHint = True
      OnClick = trackpicClick
      OnMouseMove = trackpicMouseMove
    end
    object playlist: TListBox
      Left = 0
      Top = 90
      Width = 378
      Height = 224
      BorderStyle = bsNone
      Color = clBlack
      DragMode = dmAutomatic
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      MultiSelect = True
      ParentFont = False
      Style = lbOwnerDrawVariable
      TabOrder = 1
      OnDblClick = playlistDblClick
      OnKeyPress = playlistKeyPress
      OnMouseMove = playlistMouseMove
    end
    object cdbox: TListBox
      Left = 0
      Top = 90
      Width = 378
      Height = 224
      BorderStyle = bsNone
      Color = clBlack
      ExtendedSelect = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      Style = lbOwnerDrawVariable
      TabOrder = 0
      Visible = False
      OnDblClick = cdboxDblClick
      OnKeyPress = cdboxKeyPress
      OnMouseMove = cdboxMouseMove
    end
  end
  object Openpldialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'MPx and Playlist Files|*.mp1;*.mp2;*.mp3;*.m3u;*.dmp;*.pls'
    Options = [ofAllowMultiSelect, ofPathMustExist, ofFileMustExist]
    Title = 'Open MPx or Playlist'
    Left = 272
    Top = 8
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.m3u'
    FileEditStyle = fsEdit
    Filter = 'Playlists (m3u)|*.m3u;*.pls'
    Options = [ofOverwritePrompt]
    Title = 'Save Playlist'
    Left = 312
    Top = 8
  end
  object PopupMenu: TPopupMenu
    AutoPopup = False
    Left = 40
    Top = 8
    object fd1: TMenuItem
      Caption = 'File(s)...'
      ShortCut = 0
      OnClick = fd1Click
    end
    object Dirs: TMenuItem
      Caption = 'Directories...'
      ShortCut = 0
      OnClick = DirsClick
    end
    object URL1: TMenuItem
      Caption = 'URL...'
      ShortCut = 0
      OnClick = URL1Click
    end
  end
  object BrowseDialog: TBrowseDialog
    Caption = 'Select MP3 Folder to Add'
    Options = []
    Left = 72
    Top = 8
  end
  object Popup: TPopupMenu
    AutoPopup = False
    Left = 168
    Top = 8
    object ClearPlaylist1: TMenuItem
      Caption = 'All Songs'
      ShortCut = 0
      OnClick = ClearPlaylist1Click
    end
    object Randomize1: TMenuItem
      Caption = 'Selected Songs'
      ShortCut = 0
      OnClick = Randomize1Click
    end
    object AllbutSelected1: TMenuItem
      Caption = 'All but Selected'
      ShortCut = 0
      OnClick = AllbutSelected1Click
    end
  end
  object filepopup: TPopupMenu
    Left = 122
    Top = 10
    object LoadPlaylist1: TMenuItem
      Caption = 'Load Playlist...'
      ShortCut = 0
      OnClick = LoadPlaylist1Click
    end
    object SavePlaylist1: TMenuItem
      Caption = 'Save Playlist...'
      ShortCut = 0
      OnClick = SavePlaylist1Click
    end
  end
  object Openplaylist: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Playlist Files|*.m3u;*.pls;*.dmp'
    Options = [ofFileMustExist]
    Title = 'Load Playlist File'
    Left = 226
    Top = 10
  end
  object EditPopup: TPopupMenu
    Left = 170
    Top = 306
    object SelectAll1: TMenuItem
      Caption = 'Select All'
      ShortCut = 0
      OnClick = SelectAll1Click
    end
    object SelectNone1: TMenuItem
      Caption = 'Select None'
      ShortCut = 0
      OnClick = SelectNone1Click
    end
    object InvertSelection1: TMenuItem
      Caption = 'Invert Selection'
      ShortCut = 0
      OnClick = InvertSelection1Click
    end
  end
  object effectPopup: TPopupMenu
    Left = 202
    Top = 306
    object Randomize2: TMenuItem
      Caption = 'Randomize'
      ShortCut = 0
      OnClick = Randomize2Click
    end
    object Reverse1: TMenuItem
      Caption = 'Reverse'
      ShortCut = 0
      OnClick = Reverse1Click
    end
    object ID3Tag1: TMenuItem
      Caption = 'ID3 Tag'
      ShortCut = 0
      OnClick = ID3Tag1Click
    end
  end
end